home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / gawk / gawk213b.zoo / test / lisp / numbers.w < prev    next >
Text File  |  1991-05-21  |  1KB  |  47 lines
  1. ; numeric functions
  2. ; 
  3. ; This is all symbol manipulation- walk has no built-in math!
  4. ; It's too slow to be of much use.
  5.  
  6. ; error conditions
  7. (set 'NOADD '"addition undefined for given arguments")
  8. (set 'NOSUB '"subtraction undefined for given arguments")
  9.  
  10. (set '_integers_ '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16))
  11.  
  12. ; increment a number by 1
  13. (set 'add1 '(lambda (n) (or (succ n _integers_) (error NOADD))))
  14.  
  15. ; decrement by 1
  16. (set 'sub1 '(lambda (n) (or (pred n _integers_) (error NOSUB))))
  17.  
  18. ; t if x is 0
  19. (set 'zerop '(lambda (x) (eq x 0)))
  20.  
  21. ; t if x is a number
  22. (set 'numberp '(lambda (x) (member x _integers_)))
  23.  
  24. ; t if x > y
  25. (set 'greaterp '(lambda (x y) (member x (after _integers_ y))))
  26.  
  27. ; t if x < y
  28. (set 'lessp '(lambda (x y) (member y (after _integers_ x))))
  29.  
  30. ; subtraction
  31. (set 'difference
  32.     '(lambda (x y)
  33.     (cond ((zerop y) x)
  34.         (t (difference (sub1 x) (sub1 y))))))
  35.  
  36. ; take the length of a list
  37. (set 'length
  38.     '(lambda (s)
  39.     (cond ((atom s) 0)  ; or (null s)
  40.         ((null (cdr s)) 1)
  41.         (t (add1 (length (cdr s)))))))
  42.  
  43. ; addition (forget about actually using this)
  44. (set 'plus
  45.     '(lambda (x y)
  46.     (length (append (before _integers_ x) (before _integers_ y)))))
  47.